Dim subtotal, salestax, ordertotal
salestax = 5
subtotal = 199
ordertotal = ((subtotal * 100) * salestax) + subtotal
msgbox("Kwota zamwienia wynosi (PLN):" & ordertotal)
